home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 4 / FM Towns Free Software Collection 4 - Disc 1.iso / msdos / dbhamlog / ken.prg < prev    next >
Text File  |  1991-10-18  |  3KB  |  123 lines
  1. *****************  検索 *****************
  2. *************  KEN.PRG  **** T.Chino ****
  3. DO WHILE .T.
  4. CLEAR
  5. SET COLOR TO BR
  6.   @ 1,13   SAY "*************************************************"
  7.   @ 2,13   SAY "*                                               *"
  8.   @ 3,13   SAY "************************************* 検索.PRG **"
  9. SET COLOR TO GR
  10.   @ 2,16   SAY "アマチュア 無 線 ＱＳＯ ログ 管 理 システム"
  11. SET COLOR TO GI
  12.   @ 5,15   SAY "                                              "
  13.   @ 6,15   SAY "                                              "
  14.   @ 7,15   SAY "　　　　　　　　　　　　　　　　　　　　　　　"
  15.   @ 8,15   SAY "                                              "
  16.   @ 9,15   SAY "                                              "
  17.   @ 10,15  SAY "　　　　　　　　　　　　　　　　　　　　　　　"
  18.   @ 11,15  SAY "                                              "
  19.   @ 12,15  SAY "                                              "
  20.   @ 13,15  SAY "　　　　　　　　　　　　　　　　　　　　　　　"
  21.   @ 14,15  SAY "                                              "
  22.   @ 15,15  SAY "                                              "
  23.   @ 16,15  SAY "                                              "
  24.   @ 17,15  SAY "                                              "
  25.   @ 18,15  SAY "                                              "
  26.   @ 19,15  SAY "                                              "
  27.  
  28. STOR 06 TO X1
  29. STOR 08 TO X2
  30. STOR 10 TO X3
  31. STOR 12 TO X4
  32. STOR 14 TO X5
  33. STOR 16 TO X6
  34. STOR 17 TO X7
  35. STOR 18 TO X8
  36. SET COLOR TO
  37.  
  38. STOR "  呼出符号 ( CALLKEN.PRG ) " TO MEN1
  39. STOR "  周波数帯 ( FREQKEN.PRG ) " TO MEN2
  40. STOR "  市郡番号 ( JCCGKEN.PRG ) " TO MEN3
  41. STOR "  格子位置 (   GLKEN.PRG ) " TO MEN4
  42. STOR "  終　　了    "             TO MEN5
  43. STOR "  ＲＥＤ　２　ＰＵＬＳ "     TO MEN6
  44. STOR "  ＴＥＳＴ (Z.PRG) "         TO MEN7
  45. STOR "  ＡＳＳＩＳＴ "             TO MEN8
  46.  
  47. STOR 1 TO NUM
  48. DO WHILE NUM<=8
  49. STOR STR(NUM,1) TO NO
  50. @ X&NO,25 SAY MEN&NO
  51. STOR NUM+1 TO NUM
  52. ENDDO
  53.  
  54. SET COLOR TO ,,BR
  55. @ 21,15 TO 23,60 DOUBLE
  56. @ 22,20 SAY " ↑ , ↓ で選択･ＲＥＴＵＲＮで決定"
  57.  
  58. STOR 1 TO NUM
  59. DO WHILE .T.
  60. SET COLO TO GRI
  61. STOR STR(NUM,1) TO NO
  62. ***************************
  63. IF NO="6" .OR. NO="7" .OR. NO="8"
  64.  SET COLO TO R,R*,BG
  65. ENDIF
  66. ***************************
  67. @ X&NO,25 SAY MEN&NO
  68. SET COLO TO 
  69.  
  70. SET CURS OFF
  71. STOR " " TO NUMBER
  72. @ 0,0 GET NUMBER
  73. READ
  74. SET CURS ON
  75.  
  76. IF READKEY()=4
  77. @ X&NO,25 SAY MEN&NO
  78. ENDIF
  79. IF READKEY()=5
  80. @ X&NO,25 SAY MEN&NO
  81. ENDIF
  82. IF READKEY()=12
  83. RETURN
  84. ENDIF
  85.  
  86. ************************************
  87. DO CASE 
  88.    CASE READKEY()=4 .AND. NUM=1
  89.         STOR 8 TO NUM   
  90.    CASE READKEY()=4
  91.         STOR NUM-1 TO NUM   
  92.    CASE READKEY()=5 .AND. NUM=8
  93.         STOR 1 TO NUM   
  94.    CASE READKEY()=5
  95.         STOR NUM+1 TO NUM   
  96.    CASE READKEY()=15
  97.           
  98.      DO CASE 
  99.         CASE NUM=1
  100.           DO CALLKEN
  101.         CASE NUM=2
  102.           DO FREQKEN
  103.         CASE NUM=3
  104.           DO JCCGKEN
  105.         CASE NUM=4
  106.           DO GLKEN
  107.         CASE NUM=5
  108.           RETURN
  109.         CASE NUM=6
  110.           RUN RED2
  111.         CASE NUM=7
  112.           DO Z
  113.         CASE NUM=8
  114.           ASSIST
  115.        ENDCASE
  116.       EXIT
  117.     OTHERWISE
  118.       LOOP
  119.    ENDCASE
  120.  ENDDO
  121. ENDDO
  122.  
  123.